home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Xor1.AMOS / Xor1.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  710 b   |  25 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. Screen Open 1,320,256,2,Lowres : Flash Off : Curs Off 
  12. Circle 16,16,15 : Paint 16,16
  13.  
  14. Screen Open 0,320,256,2,Lowres : Flash Off : Curs Off : Hide 
  15. Palette 0,$EED
  16.  
  17. For C=0 To 420
  18.    X=144+Sin(C*8)*C/2
  19.    Y=110+Cos(C*8)*C/2
  20.    Screen Copy 1,0,0,32,32 To 0,X,Y,%1100000
  21. Next 
  22.  
  23. Wait Key 
  24. Fade 1
  25. Edit